home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / siren.arc / SIREN.ASC next >
Encoding:
Text File  |  1985-10-17  |  755 b   |  47 lines
  1. 100 GOSUB 280
  2. 110 GOSUB 320
  3. 120 GOSUB 320
  4. 130 GOSUB 280
  5. 140 GOSUB 430
  6. 150 GOSUB 430
  7. 160 GOSUB 430
  8. 170 GOSUB 320
  9. 180 GOSUB 430
  10. 190 GOSUB 280
  11. 200 GOSUB 390
  12. 210 GOSUB 490
  13. 220 GOSUB 490
  14. 230 GOSUB 280
  15. 240 GOSUB 430
  16. 250 GOSUB 430
  17. 260 GOSUB 390
  18. 270 END
  19. 280 FOR I=900 TO 1200 STEP 2
  20. 290 SOUND I,.22
  21. 300 NEXT I
  22. 310 RETURN
  23. 320 FOR I=1200 TO 900 STEP -2
  24. 330 SOUND I,.22
  25. 340 NEXT I
  26. 350 FOR I=900 TO 1200 STEP 2
  27. 360 SOUND I,.22
  28. 370 NEXT I
  29. 380 RETURN
  30. 390 FOR I=1200 TO 500 STEP -3
  31. 400 SOUND I,.2
  32. 410 NEXT I
  33. 420 RETURN
  34. 430 FOR K=1 TO 2
  35. 440 FOR I=1200 TO 700 STEP -18
  36. 450 SOUND I,.22
  37. 460 NEXT I
  38. 470 NEXT K
  39. 480 RETURN
  40. 490 FOR I=1 TO 3
  41. 500 SOUND 700,4
  42. 510 SOUND 20000,1
  43. 520 SOUND 500,4
  44. 530 SOUND 20000,1
  45. 540 NEXT I
  46. 550 RETURN
  47.